`print.SNPinteraction` <-
function(x, ...)
{
 print.table(x,na.print="-")
}

